home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 April / Ahoy_Magazine_88-04_1988_Double_L.d64 / dir 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  7KB  |  196 lines
  1. 30 rem********************************
  2. 32 rem*       menu program v2.0      *
  3. 34 rem*          designed by         *
  4. 36 rem*       double l software      *
  5. 38 rem* (c) 1987 all rights reserved *
  6. 40 rem********************************
  7. 41 clr:poke53296,1
  8. 42 at=679:forn=attoat+22:readm:poken,m:next
  9. 44 data32,180,2,132,251,32,180,2
  10. 46 data166,251,76,240,255,32,253,174
  11. 48 data32,158,173,32,170,177,96
  12. 50 poke53265,peek(53265)and239
  13. 60 gosub4000:v=53248:x1=75:y1=100
  14. 80 dim p$(4,12),pg$(4,12),in$(4,12):gosub5000:nn=2:b=.:gosub5190
  15. 100 poke53280,0:poke53281,1:printchr$(14):gosub2500
  16. 110 poke2040,15:pokev+39,10:pokev,x1:pokev+1,y1
  17. 120 gosub800:poke53265,peek(53265)or16:poke53296,0
  18. 140 lc=55590:p=7:h=1:pokev+21,1
  19. 145 b=b+1:ifb>nnthenb=1
  20. 150 fori=1to12:sysat,i+6,14:print"[144]"p$(b,i):next:pokev+1,y1
  21. 204 f=len(p$(b,h)):fora=0tof:pokelc+a,8:next:gosub1000
  22. 206 getan$:ifan$=""then206
  23. 208 ifan$=chr$(17)then1250
  24. 210 ifan$=chr$(145)then1300
  25. 215 ifan$=chr$(13)then2000
  26. 222 ifan$=chr$(32)thengosub3000:y1=100:goto140
  27. 225 goto204
  28. 230 print"[147]";:poke53280,0:poke53281,0:pokev+21,0
  29. 235 print"[158][204]oading...";chr$(34);p$(b,h)chr$(34);"[144]"
  30. 240 print "load";chr$(34);p$(b,h);chr$(34);",8"
  31. 250 print "run":print "[145][145][145][145][145][145][145][145][145]"
  32. 260 poke 631,13:poke 632,13:poke 198,2:end
  33. 800 print"[147]":sysat,2,2:print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  34. 805 sysat,1,5:print"[144](c)1987 [196]ouble [204] [211]oftware v2.0"
  35. 810 sysat,3,2:print"[221]  [144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]  [221]"
  36. 815 fori=4to19
  37. 820 sysat,i,2:printtab(2)"[221]  [144][221]                            [221]  [221]":next
  38. 830 sysat,20,2:print"[221]  [144][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]  [221]"
  39. 835 sysat,21,2:print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  40. 840 sysat,22,1:print"[144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  41. 850 sysat,23,1:print"[221] [150][195]rsr[144]=[211]elect  [211]pc[144]=[205]ore  [154][195]/[210][144]=[197]xecute [221]"
  42. 860 sysat,24,1:print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  43. 870 sysat,3,10:print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  44. 880 sysat,4,10:print"[221] [205] [193] [201] [206]  [205] [197] [206] [213] [221]"
  45. 890 sysat,5,10:print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  46. 900 return
  47. 1000 s=54272:pokes+23,0:pokes+24,15
  48. 1010 pokes+6,0:pokes+5,12:pokes+1,70:pokes+3,40
  49. 1020 pokes+4,0:pokes+4,65:ford=1to100:next:pokes+4,0:return
  50. 1250 y1=y1+8:ify1>188theny1=100
  51. 1255 pokev+1,y1:fori=0tof:pokelc+i,0:next
  52. 1260 h=h+1:ifh>12thenh=1
  53. 1262 p=p+1:ifp>18thenp=7
  54. 1265 lc=lc+40:iflc>56030thenlc=55590
  55. 1270 goto204
  56. 1300 y1=y1-8:ify1<100theny1=188
  57. 1305 pokev+1,y1:fori=0tof:pokelc+i,0:next
  58. 1310 h=h-1:ifh<1thenh=12
  59. 1312 p=p-1:ifp<7thenp=18
  60. 1315 lc=lc-40:iflc<55590thenlc=56030
  61. 1320 goto204
  62. 1550 sys828:pokev+21,0
  63. 1560 sysat,12,4:print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  64. 1570 printtab(4)"[221] [212]his is a 128 [208]rogram.[201]t may [221]"
  65. 1580 printtab(4)"[221] not be loaded in the 64 mode.[221]"
  66. 1590 printtab(4)"[221] [217]ou must switch to the 128   [221]"
  67. 1600 printtab(4)"[221] mode in order to load this   [221]"
  68. 1610 printtab(4)"[221] program successfully. [213]se the[221]"
  69. 1620 printtab(4)"[221] prescribed method which is...[221]"
  70. 1630 printtab(4)"[221] [196][204]oad ''[208]rogname''           [221]"
  71. 1640 printtab(4)"[221]       [[208]ress any [203]ey]        [221]"
  72. 1650 printtab(4)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  73. 1660 sysat,22,3:print"[144]                                  ":gosub1000
  74. 1670 getan$:ifan$=""then1670
  75. 1680 sys882:pokev+21,1:goto225
  76. 1997 rem **************************
  77. 1998 rem ****  window routine  ****
  78. 1999 rem **************************
  79. 2000 sys828
  80. 2010 sysat,4,11:print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  81. 2030 printtab(11)"[221][211]ee [201]nstructions[221]"
  82. 2040 printtab(11)"[221][210]un [208]rogram     [221]"
  83. 2050 printtab(11)"[221][195]ancel [215]indow   [221]"
  84. 2060 printtab(11)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  85. 2070 po=55507:x=0
  86. 2080 fori=1to16:pokepo+i,0:next:gosub1000
  87. 2090 getan$:ifan$=""then2090
  88. 2100 ifan$=chr$(17)thengosub2200:po=po+40:x=x+1:ifpo>55587thenpo=55507
  89. 2110 ifx>2thenx=0
  90. 2120 ifan$=chr$(13)then2140
  91. 2130 goto2080
  92. 2140 ifx=0thensys882:goto4100
  93. 2145 ifx=2then2180
  94. 2146 ifb=1andh=3orb=1andh=7orb=1andh=8orb=1andh=10orb=1andh=12then2155
  95. 2147 ifb=2andh=5orb=2andh=10orb=2andh=11then2155
  96. 2148 rem ifb=3andh=1orb=2andh=2orb=2andh=4orb=2andh=5orb=2andh=9then2155
  97. 2149 rem ifb=4 then2155
  98. 2150 goto2159
  99. 2155 sys882:goto1550
  100. 2159 ifx=1thensys882
  101. 2160 fori=0to35:pokev,x1+i:ford=1to35:next:next
  102. 2170 pokev+21,0:goto230
  103. 2180 sys882:goto225
  104. 2200 fori=1to16:pokepo+i,5:next:return
  105. 2500 p$(1,1)="[198]lankspeed":in$(1,1)="[198]lank in"
  106. 2510 p$(1,2)="64 [194]ug [210]ep [201][201]":in$(1,2)="[194]ug [210]ep in"
  107. 2520 p$(1,3)="128 bug rep ii":in$(1,3)="bug rep in"
  108. 2530 p$(1,4)="[194]arricade":in$(1,4)="[194]arricade in"
  109. 2540 p$(1,5)="[212]ime [211]ubway":in$(1,5)="[212]ime [211]ubway in"
  110. 2550 p$(1,6)="[211]prite [197]xploder":in$(1,6)="[211]prite in"
  111. 2560 p$(1,7)="hi-res windows":in$(1,7)="hi-res in"
  112. 2570 p$(1,8)="tv demo":in$(1,8)="tv demo in"
  113. 2580 p$(1,9)="[196]emo64":in$(1,9)="[196]emo64 in"
  114. 2590 p$(1,10)="demo128":in$(1,10)="demo128 in"
  115. 2600 p$(1,11)="[195]oin [195]hallenge":in$(1,11)="[195]oin in"
  116. 2610 p$(1,12)="joyful sprites":in$(1,12)="joyful in"
  117. 2615 p$(2,1)="[210]andom [215]alk":in$(2,1)="[210]andom in"
  118. 2620 p$(2,2)="[210]andow [215]alk2":in$(2,2)="[210]andom2 in"
  119. 2630 p$(2,3)="[212]ime [205]achine":in$(2,3)="[212]ime in"
  120. 2640 p$(2,4)="[212]ime [205]achine2":in$(2,4)="[212]ime2 in"
  121. 2650 p$(2,5)="more income":in$(2,5)="income in"
  122. 2660 p$(2,6)="[204]owercase [205]oires":in$(2,6)="[204]owercase in"
  123. 2670 p$(2,7)="[211]ing [193] [211]tring":in$(2,7)="[211]ing in"
  124. 2690 p$(2,8)="[214]ic chip":in$(2,8)="[214]ic in"
  125. 2700 p$(2,9)="[194]ulging [211]quares":in$(2,9)="[194]ulging in"
  126. 2710 p$(2,10)="fast renumber":in$(2,10)="fast in"
  127. 2720 p$(2,11)="grim oak boot":in$(2,11)="grim in"
  128. 2730 p$(2,12)="            ":in$(2,12)="           "
  129. 2740 p$(3,1)="          ":in$(3,1)="       "
  130. 2750 p$(3,2)="         ":in$(3,2)="       "
  131. 2760 p$(3,3)="           ":in$(3,3)="         "
  132. 2770 p$(3,4)="            ":in$(3,4)="         "
  133. 2780 p$(3,5)="               ":in$(3,5)="           "
  134. 2790 p$(3,6)="         ":in$(3,6)="        "
  135. 2800 p$(3,7)="            ":in$(3,7)="        "
  136. 2810 p$(3,8)="             ":in$(3,8)="         "
  137. 2820 p$(3,9)="             ":in$(3,9)="            "
  138. 2830 p$(3,10)="            ":in$(3,10)="       "
  139. 2840 p$(3,11)="            ":in$(3,11)="       "
  140. 2850 p$(3,12)="              ":in$(3,12)="       "
  141. 2860 p$(4,1)="    ":in$(4,1)="       "
  142. 2999 return
  143. 3000 forcl=7to18:sysat,cl,14:print"[144]                 ":next:return
  144. 4000 rempoke657,128:rem disable shift/com key
  145. 4010 rempoke775,200:rem disable listing
  146. 4020 rempoke808,234:rem disable stop/restore
  147. 4030 return
  148. 4100 sys828:pokev+21,0:zz$=in$(b,h)
  149. 4105 open2,8,2,"@0:"+zz$+",s,r"
  150. 4106 forxx=1to5
  151. 4107 input#2,tx$(xx)
  152. 4108 next:close2
  153. 4110 sysat,7,1:print"[156][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  154. 4120 fori=8to13:sysat,i,1:print"[221]                                    [221]"
  155. 4125 next
  156. 4130 sysat,14,1:print"[221]   [144][[195]/[210]=[195]ancel * [211]pc=[210]un [208]rogram][156]   [221]"
  157. 4140 sysat,15,1:print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  158. 4145 sysat,22,3:print"[144]                                  ":gosub1000
  159. 4150 forxx=1to5:sysat,7+xx,3:print"[156]"tx$(xx):next
  160. 4160 getan$:ifan$=""then4160
  161. 4170 ifan$=chr$(13)thensys882:goto204
  162. 4180 ifb=1andh=3orb=1andh=7orb=1andh=8orb=1andh=10orb=1andh=12then4195
  163. 4182 ifb=2andh=5orb=2andh=10orb=2andh=11then4195
  164. 4183 rem ifb=2andh=1orb=2andh=2orb=2andh=8orb=2andh=9then4195
  165. 4184 rem if b=4
  166. 4190 sys882:pokev+21,1
  167. 4192 fori=0to35:pokev,x1+i:ford=1to35:next:next
  168. 4194 pokev+21,0:goto230
  169. 4195 sys882:goto1550
  170. 4200 goto4160
  171. 5000 fori=828to935:reada:pokei,a:next:return
  172. 5010 data 160,0,185,0,4,153,0,192
  173. 5020 data 185,0,216,153,240,195,185,250
  174. 5030 data 4,153,250,192,185,250,216,153
  175. 5040 data 234,196,185,244,5,153,244,193
  176. 5050 data 185,244,217,153,228,197,185,238
  177. 5060 data 6,153,238,194,185,238,218,153
  178. 5070 data 222,198,200,208,205,96,160,0
  179. 5080 data 185,0,192,153,0,4,185,240
  180. 5090 data 195,153,0,216,185,250,192,153
  181. 5100 data 250,4,185,234,196,153,250,216
  182. 5110 data 185,244,193,153,244,5,185,228
  183. 5120 data 197,153,244,217,185,238,194,153
  184. 5130 data 238,6,185,222,198,153,238,218
  185. 5140 data 200,208,205,96
  186. 5190 fori=960to1022:readn:pokei,n:next:return
  187. 5200 data 0,0,0,0,0,0,0
  188. 5210 data 0,0,0,0,0,0,0
  189. 5220 data 0,0,0,0,0,1,192
  190. 5230 data 0,0,224,0,0,112,0
  191. 5240 data 255,252,0,255,255,0,255
  192. 5250 data 252,0,0,112,0,0,224
  193. 5260 data 0,1,192,0,0,0,0
  194. 5270 data 0,0,0,0,0,0,0
  195. 5280 data 0,0,0,0,0,0,0
  196.